www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_Space.asp
<html> <head> <META content=ywnt,云网互动影视管理系统 name=keywords> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>云网互动影视6.0--数据库管理</title> <LINK href="css/css.css" type=text/css rel=stylesheet> </head> <BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0"> <!--#include file="../Conn.asp" --> <!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" --> <% '=================================================================================================================== '软件名称:云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ:489234,2813712 '程序版权:云网互动科技有限公司 '程序开发:云网互动科技有限公司 '官方网站:http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息; ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== Call CheckLogin("Space")%> <table class="table" width="98%" border="0" align="center" cellpadding="3" cellspacing="1"> <tr> <td class="xingmu"><b>系统空间占用情况</b></td> </tr> <tr class="hback"> <td height="32" valign="middle"> 系统数据占用空间: <img src="images/bar.gif" width=<%=drawbar("../Database")%> height=10> <%showSpaceinfo("../Database")%> </td> </tr> <tr class="hback"> <td height="32" valign="middle"> 备份数据占用空间: <img src="images/bar.gif" width=<%=drawbar("../Database/DataBackup")%> height=10> <%showSpaceinfo("../Database/DataBackup")%> </td> </tr> <tr class="hback"> <td height="32" valign="middle"> 模板文件占用空间: <img src="images/bar.gif" width=<%=drawbar("../Template")%> height=10> <%showSpaceinfo("../Template")%> </td> </tr> <tr class="hback"> <td height="32" valign="middle"> 上传文件占用空间: <img src="images/bar.gif" width=<%=drawbar("../"&GetConfig("PhotoUpDir"))%> height=10> <%showSpaceinfo("../"&GetConfig("PhotoUpDir"))%> </td> </tr> <tr class="hback"> <td height="32" valign="middle"> 系统占用空间总计: <img src="images/bar.gif" width=500 height=10> <%showSpaceinfo(GetConfig("WebiInstallDir"))%> </td> </tr> </table> <%call connclose() Sub ShowSpaceInfo(drvpath) dim fso,d,size set fso=server.createobject("Scripting.FileSystemObject") drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size response.write "<font face=verdana>" & GetSize(size) & "</font>" End Sub Function GetSize(Byval size) if isEmpty(size) or Not Isnumeric(size) then Exit Function size=formatnumber(size/1024,2) if size>1024 then size=(size/1024) getsize=formatnumber(size,2) & " MB" else getsize=size & " KB" Exit Function end if if size>1024 then size=(size/1024) getsize=formatnumber(size,2) & " GB" end if End Function Function Drawbar(drvpath) dim fso,drvpathroot,d,size,totalsize,barsize set fso=server.createobject("Scripting.FileSystemObject") drvpathroot=server.mappath(GetConfig("WebiInstallDir")) set d=fso.getfolder(drvpathroot) totalsize=d.size drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size barsize=cint((size/totalsize)*500) Drawbar=barsize End Function %> </BODY></HTML>